home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm2.d64 / star (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  573b  |  15 lines
  1. 10 GOSUB38
  2. 12 SYS57812"SID PLAYER",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
  3. 14 SYS57812"FONT",8,0:POKE780,0:POKE781,0:POKE782,100:SYS65493
  4. 16 SYS57812"MUSIC",8,0:POKE780,0:POKE781,0:POKE782,108:SYS65493
  5. 30 PRINT"[144]LOAD"CHR$(34)"PRESENTER"CHR$(34)",8"
  6. 32 PRINT"RUN"
  7. 36 POKE631,13:POKE632,13:POKE198,2:END
  8. 38 POKE53281,0:POKE53280,0:X$=CHR$(13)+""
  9. 40 A$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  10. 42 PRINTCHR$(142)"[147][155]"X$"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  11. 44 PRINT"  [192][155][192][192][152][192][192][152]   KICKING OFF LOADSTAR...  [146][192][192][155][192][192][192]"X$;
  12. 46 PRINT"[145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  13. 48 FORI=2TO10:A$=MID$(A$,5):POKE214,24-I:PRINT:PRINTSPC(20-LEN(A$)/2)"[158]"A$""
  14. 50 NEXT:RETURN
  15.